getplayer[THISACTOR].player_par TEMP
shiftvarl TEMP 7
sin TEMP2 TEMP
shiftvarr TEMP2 11
setvarvar shade TEMP2